object frmPreview: TfrmPreview Left = 233 Top = 174 Width = 640 Height = 480 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Preview' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnMouseMove = FormMouseMove OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object QRPreview: TQRPreview Left = 0 Top = 36 Width = 632 Height = 417 Hint = 'Zoom to 100%' HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient Color = 8476675 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 OnMouseMove = FormMouseMove OnResize = QRPreviewResize OnPageAvailable = QRPreviewPageAvailable PageNumber = 1 Zoom = 100 end object Panel1: TPanel Left = 0 Top = 0 Width = 632 Height = 36 Align = alTop BevelOuter = bvNone TabOrder = 0 OnMouseMove = FormMouseMove object Label1: TLabel Left = 5 Top = 10 Width = 25 Height = 13 Caption = 'Pa&ge' end object Label3: TLabel Left = 202 Top = 10 Width = 27 Height = 13 Hint = 'Zoom to the specified percentage' Caption = '&Zoom' ParentShowHint = False ShowHint = True end object sbFirstPage: TSpeedButton Left = 113 Top = 5 Width = 21 Height = 25 Hint = 'Go to the first page' AllowAllUp = True Flat = True Layout = blGlyphRight ParentShowHint = False ShowHint = True OnClick = sbFirstPageClick OnMouseMove = sbFirstPageMouseMove end object sbPreviousPage: TSpeedButton Left = 134 Top = 5 Width = 21 Height = 25 Hint = 'Go to the previous page' AllowAllUp = True Flat = True Layout = blGlyphRight ParentShowHint = False ShowHint = True OnClick = sbPreviousPageClick OnMouseMove = sbPreviousPageMouseMove end object sbNextPage: TSpeedButton Left = 155 Top = 5 Width = 21 Height = 25 Hint = 'Go to the next page' AllowAllUp = True Flat = True Layout = blGlyphRight ParentShowHint = False ShowHint = True OnClick = sbNextPageClick OnMouseMove = sbNextPageMouseMove end object sbLastPage: TSpeedButton Left = 176 Top = 5 Width = 21 Height = 25 Hint = 'Go to the last page' AllowAllUp = True Flat = True Layout = blGlyphRight ParentShowHint = False ShowHint = True OnClick = sbLastPageClick OnMouseMove = sbLastPageMouseMove end object ZoomToWidth: TSpeedButton Left = 370 Top = 6 Width = 32 Height = 25 Hint = 'Zoom to page width' GroupIndex = 1 Down = True Glyph.Data = { 5A010000424D5A01000000000000760000002800000013000000130000000100 040000000000E400000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFF FFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF0 0000FFF1FFFFFFFFFFF1FFF00000FF11FFFFFFFFFFF11FF00000F111FFFFFFFF FFF111F00000111111111111111111100000F111FFFFFFFFFFF111F00000FF11 FFFFFFFFFFF11FF00000FFF1FFFFFFFFFFF1FFF00000FFFFFFFFFFFFFFFFFFF0 0000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFF FFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000} Layout = blGlyphRight ParentShowHint = False ShowHint = True OnClick = ZoomToWidthClick end object ZoomTo100: TSpeedButton Left = 403 Top = 6 Width = 32 Height = 25 Hint = 'Zoom to 100%' GroupIndex = 1 Caption = '100' Font.Charset = ANSI_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphRight ParentFont = False ParentShowHint = False ShowHint = True Spacing = 0 OnClick = ZoomTo100Click end object ZoomToFit: TSpeedButton Left = 337 Top = 6 Width = 32 Height = 25 Hint = 'Zoom to fit' GroupIndex = 1 Glyph.Data = { 5A010000424D5A01000000000000760000002800000013000000130000000100 040000000000E400000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF1FF FFFFFFF00000FFFFFFFF111FFFFFFFF00000FFFFFFF11111FFFFFFF00000FFFF FF1111111FFFFFF00000FFFFFFFFF1FFFFFFFFF00000FFFFFFFFF1FFFFFFFFF0 0000FFF1FFFFF1FFFFF1FFF00000FF11FFFFF1FFFFF11FF00000F111FFFFF1FF FFF111F00000111111111111111111100000F111FFFFF1FFFFF111F00000FF11 FFFFF1FFFFF11FF00000FFF1FFFFF1FFFFF1FFF00000FFFFFFFFF1FFFFFFFFF0 0000FFFFFFFFF1FFFFFFFFF00000FFFFFF1111111FFFFFF00000FFFFFFF11111 FFFFFFF00000FFFFFFFF111FFFFFFFF00000FFFFFFFFF1FFFFFFFFF00000} ParentShowHint = False ShowHint = True OnClick = ZoomToFitClick end object Print: TSpeedButton Left = 451 Top = 6 Width = 47 Height = 25 Hint = 'Print' AllowAllUp = True Caption = 'Print' Flat = True Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770000000000 0777707777777770707700000000000007070777777BBB770007077777788877 0707000000000000077007777777777070707000000000070700770FFFFFFFF0 70707770F00000F000077770FFFFFFFF077777770F00000F077777770FFFFFFF F0777777700000000077} Layout = blGlyphRight ParentShowHint = False ShowHint = True Spacing = 2 OnClick = PrintClick OnMouseMove = PrintMouseMove end object Label2: TLabel Left = 65 Top = 10 Width = 9 Height = 13 Caption = 'of' end object SpeedButton1: TSpeedButton Left = 304 Top = 6 Width = 32 Height = 25 Hint = 'Zoom out' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 3333000333333333333330003333333333333300033333333333333000333333 3333333308B38000833333333B0088888033333333087F7F780333333887F7F7 F7883333308F7F7F7F8033333081999991803333308F7F7F7F8033333887F7F7 F788333333087F7F780333333330888880333333333380008333} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 271 Top = 6 Width = 32 Height = 25 Hint = 'Zoom in' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3303333333333333300033333333333300033333333333300033333333333300 0333333800083B8033333308888800B33333308F7F7F8033333388F7F9F7F883 3333087F797F7803333308F99999F8033333087F797F7803333388F7F9F7F883 3333308F7F7F8033333333088888033333333338000833333333} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object sbExit: TSpeedButton Left = 499 Top = 6 Width = 51 Height = 25 AllowAllUp = True Caption = 'Exit ' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = sbExitClick OnMouseMove = sbExitMouseMove end object PanelCurrentPg: TPanel Left = 33 Top = 7 Width = 28 Height = 21 BevelInner = bvLowered BevelOuter = bvNone BorderStyle = bsSingle Caption = ' ' Color = clWhite TabOrder = 0 OnMouseMove = FormMouseMove end object PanelMaxPg: TPanel Left = 78 Top = 7 Width = 28 Height = 21 BevelInner = bvLowered BevelOuter = bvNone BorderStyle = bsSingle Caption = ' ' Color = clWhite TabOrder = 1 OnMouseMove = FormMouseMove end object PanelZoomRate: TPanel Left = 235 Top = 7 Width = 28 Height = 21 BevelInner = bvLowered BevelOuter = bvNone BorderStyle = bsSingle Caption = ' ' Color = clWhite TabOrder = 2 OnMouseMove = FormMouseMove end end end